  character (len=StrKIND), intent(in) :: inname, outname
  type (mpas_pool_type), intent(inout) :: all_fields, amPool
  integer :: i

! 1 -> 2
